home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / 3MINCPY.ARC / C35 7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  77 lines
  1. 10 ERROR RTS
  2. 20 STSCR JSR STSCR1;BLANK THE SCREEN
  3. 30 LDX #$00
  4. 40 LDY #$05
  5. 50 JSR MEMEXC;DISK EXECUTE AT $0500
  6. 60 SEI
  7. 70 JSR BLKS;SEND # OF BLOCKS TO READ OR WRITE TO 1541 ROUTINE
  8. 80 MRBLKS JSR BLKS1;CHECK FOR ERROR
  9. 90 RDBUS LDY #$00;READ THE SERIAL BUS
  10. 100 MORE JSR READ
  11. 110 STA WRKBUF,Y;STORE DATA BYTES HERE
  12. 120 INY
  13. 130 BNE MORE
  14. 140 STY MEM;Y = 0 SO MEMORY = 64K
  15. 150 MORE6 LDA WRKBUF,Y
  16. 160 STA (CZFB),Y;PUT DATA IN 64'S MEMORY
  17. 170 INY
  18. 180 BNE MORE6
  19. 190 JSR RSTMEM;RESTORE NORMAL MEMORY
  20. 200 NOP:NOP:NOP
  21. 210 DEC USEBLKS;KEEP TRACK OF DATA BLOCKS USED
  22. 220 BNE MRBLKS
  23. 230 CLI
  24. 240 RTS
  25. 250 DATA1 JSR STSCR1
  26. 270 LDX #$06
  27. 280 LDY #$05
  28. 290 JSR MEMEXC;EXECUTE DISK PROGRAM AT $0506
  29. 300 SEI
  30. 310 JSR BLKS
  31. 320 MORE3 LDY #$00
  32. 330 STY MEM;ZERO = 64K MEMORY
  33. 340 MORE1 LDA (CZFB),Y;MOVE DATA FROM MEMORY
  34. 350 STA WRKBUF,Y;TO THE WORK BUFFER
  35. 360 INY
  36. 370 BNE MORE1
  37. 380 JSR RSTMEM;RESTORE NORMAL MEMORY
  38. 390 MORE2 LDA WRKBUF,Y
  39. 400 JSR WRITE;SEND DATA TO BACK-UP DISK
  40. 410 INY
  41. 420 BNE MORE2
  42. 430 JSR BLKS1
  43. 440 NOP:NOP:NOP
  44. 450 DEC USEBLKS;KEEP TRACK OF DATA BLOCKS
  45. 460 BNE MORE3
  46. 470 CLI
  47. 480 RTS
  48. 490 RSTMEM LDA #$37
  49. 500 STA MEM;#$37 = NORMAL MEMORY
  50. 510 INC CZFC
  51. 520 LDA CZFC
  52. 530 CMP #$80
  53. 540 BNE MORE4
  54. 550 INC CZFC
  55. 560 MORE4 RTS
  56. 570 BLKS LDA USEBLKS
  57. 580 JSR WRITE
  58. 590 RTS
  59. 600 BLKS1 JSR READ
  60. 610 BPL BACK;AFTER READ IF BIT 7 = 0 THEN NO ERROR ON THIS TRK & SEC
  61. 620 AND #$7F;CLEAR BIT 7
  62. 630 JSR ASCII;CONVERT TRK & SEC WHICH HAS ERROR
  63. 640 STX TRK;TRACK ERROR ON
  64. 650 STY TRK+1
  65. 660 JSR READ;GET SECTOR # OF ERROR TRACK
  66. 670 JSR ASCII
  67. 680 STX SEC;SECTOR ERROR ON
  68. 690 STY SEC+1
  69. 700 JSR SCR;PRINT TRACK & SEC #'S ERROR ON
  70. 710 .BYTE 030 032 032 032 032 032 032
  71. 720 .BYTE 084 082 075 061 153
  72. 721 TRK .BYTE 000 000
  73. 730 .BYTE 044 032 030 083 067 084 061
  74. 740 .BYTE 153
  75. 741 SEC .BYTE 000 000 000
  76. 750 .FILE C35 8
  77.